object frmSelDir: TfrmSelDir Left = 320 Top = 138 BorderIcons = [biSystemMenu] BorderStyle = bsSingle Caption = 'Select a Directory' ClientHeight = 347 ClientWidth = 232 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OnCreate = FormCreate OnDestroy = FormDestroy OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object lblPath: TLabel Left = 15 Top = 12 Width = 25 Height = 13 Caption = 'Path:' end object lblDrives: TLabel Left = 14 Top = 269 Width = 33 Height = 13 Caption = 'Drives:' end object droSelect: TDirectoryOutline Left = 14 Top = 56 Width = 201 Height = 209 ItemHeight = 13 OnChange = droSelectChange Options = [ooDrawFocusRect] PictureLeaf.Data = {}